Dit voorbeeld maakt gebruik van de eigenschappen van het object Err om een dialoogvenster voor foutberichten te maken. Wanneer u een Visual Basic-fout genereert met de methode Raise en eerst de methode Clear gebruikt, worden de standaardwaarden van Visual Basic de eigenschappen van het object Err.
Dim Msg
' Als een fout optreedt, wordt een foutbericht samengesteld
On Error Resume Next ' Stelt foutafhandeling uit.
Err.Clear
Err.Raise 6 ' Genereert een "Overloop"-fout.
' Controleert op een fout en geeft vervolgens foutbericht weer.
If Err.Number <> 0 Then
Msg = "Fout # " & Str(Err.Number) & " werd gegenereerd door " _
& Err.Source & Chr(13) & Err.Description
MsgBox Msg, , "Fout", Err.Helpfile, Err.HelpContext
End If